home *** CD-ROM | disk | FTP | other *** search
/ Publication 50 / Publication_50_2003_Civitas_de_Disk_2_of_2_Side_B.d64 / bas3x4 1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  202b  |  13 lines
  1. 0 print"[147]";:
  2. 1 poke53272,29
  3. 10 a=7169
  4. 20 b=14:c=2
  5. 21 ifb=12thenc=3
  6. 30 fori=0to3
  7. 40 forx=0toc
  8. 50 poke1024+i*40+x,peek((a+b*3)+i*256+x)
  9. 60 nextx
  10. 70 nexti
  11. 80 c=2:geta$:on-(a$="")goto80
  12. 90 ifa$="+"thenb=b+1:print"[147]";:goto21
  13.